home *** CD-ROM | disk | FTP | other *** search
/ Clickx 115 / Clickx 115.iso / software / tools / windows / tails-i386-0.16.iso / live / filesystem.squashfs / var / lib / dpkg / info / linux-image-3.2.0-4-486.prerm < prev    next >
Encoding:
Text File  |  2012-12-19  |  4.1 KB  |  164 lines
  1. #! /usr/bin/perl
  2. # 
  3. use strict;
  4. use warnings;
  5. use Debconf::Client::ConfModule qw(:all);
  6. version('2.0');
  7. my $capb=capb("backup");
  8.  
  9. $|=1;
  10. # Predefined values:
  11. my $version         = "3.2.0-4-486";
  12. my $kimage          = "vmlinuz";
  13. my $prerm_hook      = '';       #Normally we do not
  14. my $kernel_arch       = "x86";
  15. my $package_name    = "linux-image-$version";
  16.  
  17. #known variables
  18. my $realimageloc    = "/boot/";
  19. my $CONF_LOC        = '/etc/kernel-img.conf';
  20.  
  21. # Variables used
  22. my $image='';
  23. my $ret=0;
  24. my $seen='';
  25. my $answer='';
  26. my $running = '';
  27. my $WouldInvalidate = 0;
  28.  
  29. # Ignore all invocations uxcept when called on to remove
  30. exit 0 unless ($ARGV[0] && $ARGV[0] =~ /remove/) ;
  31.  
  32. if (-r "$CONF_LOC" && -f "$CONF_LOC"  ) {
  33.   if (open(CONF, "$CONF_LOC")) {
  34.     while (<CONF>) {
  35.       chomp;
  36.       s/\#.*$//g;
  37.       next if /^\s*$/;
  38.  
  39.       $prerm_hook      = "$1"  if /prerm_hook\s*=\s*(\S+)/i;
  40.     }
  41.     close CONF;
  42.   }
  43. }
  44.  
  45.  
  46. $ENV{KERNEL_ARCH}=$kernel_arch if $kernel_arch;
  47.  
  48. #check to see if we are trying to remove a running kernel
  49. # if so we abort right now.
  50. chop($running=`uname -r`);
  51. if ($running eq $version) {
  52.   my $question = "${package_name}/prerm/removing-running-kernel-$version";
  53.  
  54.   ($ret,$seen) = fset ("$question", 'seen', 'false');
  55.   die "Error setting debconf flags in $question: $seen" if $ret;
  56.  
  57.   $ret = subst("$question", 'running', "$running");
  58.   die "Error setting debconf substitutions in $question: $seen" if $ret;
  59.  
  60.   ($ret,$seen) = input('critical', "$question");
  61.   if ($ret && $ret != 30 ) {
  62.     die "Error setting debconf question $question: $seen";
  63.   }
  64.  
  65.   ($ret,$seen) = go ();
  66.   if ($ret && $ret != 30 ) {
  67.     die "Error asking debconf question $question: $seen";
  68.   }
  69.  
  70.   ($ret,$answer) = get("$question");
  71.   die "Error retreiving answer for $question: $answer" if $ret;
  72.  
  73.   if ($answer =~ /^(y|t)/i) {
  74.     print STDERR "Aborting removal of running kernel image.\n";
  75.     exit 1; #Operation not permitted
  76.   }
  77.   else {
  78.      print STDERR "Ok, proceeding with removing running kernel image.\n";
  79.   }
  80. }
  81.  
  82. #Now, they have an alternate kernel which they are currently running
  83.  
  84. chdir("/") or die "could not chdir to /:$!\n";
  85.  
  86.  
  87. # set the env var stem
  88. $ENV{'STEM'} = "linux";
  89.  
  90. sub exec_script {
  91.   my $type   = shift;
  92.   my $script = shift;
  93.   print STDERR "Running $type hook script $script.\n";
  94.   system ("$script $version $realimageloc$kimage-$version") &&
  95.     print STDERR "User $type hook script [$script] ";
  96.   if ($?) {
  97.     if ($? == -1) {
  98.       print STDERR "failed to execute: $!\n";
  99.     }
  100.     elsif ($? & 127) {
  101.       printf STDERR "died with signal %d, %s coredump\n",
  102.         ($? & 127),  ($? & 128) ? 'with' : 'without';
  103.     }
  104.     else {
  105.       printf STDERR "exited with value %d\n", $? >> 8;
  106.     }
  107.     exit $? >> 8;
  108.   }
  109. }
  110. sub run_hook {
  111.   my $type   = shift;
  112.   my $script = shift;
  113.   if ($script =~ m,^/,) {
  114.     # Full path provided for the hook script
  115.     if (-x "$script") {
  116.       &exec_script($type,$script);
  117.     }
  118.     else {
  119.       die "The provided $type hook script [$script] could not be run.\n";
  120.     }
  121.   }
  122.   else {
  123.     # Look for it in a safe path
  124.     for my $path ('/bin', '/sbin', '/usr/bin', '/usr/sbin') {
  125.       if (-x "$path/$script") {
  126.         &exec_script($type, "$path/$script");
  127.         return 0;
  128.       }
  129.     }
  130.     # No luck
  131.     print STDERR "Could not find $type hook script [$script].\n";
  132.     die "Looked in: '/bin', '/sbin', '/usr/bin', '/usr/sbin'\n";
  133.   }
  134. }
  135.  
  136.  
  137. my $options;
  138. for (@ARGV) {
  139.     s,','\\'',g;
  140.     $options .= " '$_'";
  141. }
  142. $ENV{'DEB_MAINT_PARAMS'}="$options";
  143.  
  144. ## Run user hook script here, if any
  145. if (-x "$prerm_hook") {
  146.   &run_hook("prerm", $prerm_hook);
  147. }
  148. if (-d "/etc/kernel/prerm.d") {
  149.   print STDERR "Examining /etc/kernel/prerm.d.\n";
  150.   system ("run-parts --verbose --exit-on-error --arg=$version " . 
  151.           "--arg=$realimageloc$kimage-$version /etc/kernel/prerm.d") &&
  152.             die "Failed to process /etc/kernel/prerm.d";
  153. }
  154. if (-d "/etc/kernel/prerm.d/$version") {
  155.   print STDERR "Examining /etc/kernel/prerm.d/$version.\n";
  156.   system ("run-parts --verbose --exit-on-error --arg=$version" .
  157.           " --arg=$realimageloc$kimage-$version " .
  158.           "/etc/kernel/prerm.d/$version") &&
  159.             die "Failed to process /etc/kernel/prerm.d/$version";
  160. }
  161.  
  162. exit 0;
  163. __END__
  164.